home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 12 / BBS in a box XII-2.iso / Files II / Prog / D-G / Disasm Hack.sit / Disasm Hack / Disasm Stack / cards.xml < prev    next >
Encoding:
Text File  |  1992-12-23  |  2.8 KB  |  79 lines
  1. card_2833.xml
  2. <?xml version="1.0" encoding="utf-8" ?>
  3. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  4. <card>
  5.     <id>2833</id>
  6.     <filler1>0</filler1>
  7.     <cantDelete> <false /> </cantDelete>
  8.     <showPict> <true /> </showPict>
  9.     <dontSearch> <false /> </dontSearch>
  10.     <owner>2794</owner>
  11.     <link rel="stylesheet" type="text/css" href="stylesheet_3310.css" />
  12.     <part>
  13.         <id>2</id>
  14.         <type>button</type>
  15.         <visible> <true /> </visible>
  16.         <reserved5> 0 </reserved5>
  17.         <reserved4> 0 </reserved4>
  18.         <reserved3> 0 </reserved3>
  19.         <reserved2> 0 </reserved2>
  20.         <reserved1> 0 </reserved1>
  21.         <enabled> <true /> </enabled>
  22.         <rect>
  23.             <left>41</left>
  24.             <top>257</top>
  25.             <right>161</right>
  26.             <bottom>294</bottom>
  27.         </rect>
  28.         <style>shadow</style>
  29.         <showName> <true /> </showName>
  30.         <highlight> <false /> </highlight>
  31.         <autoHighlight> <true /> </autoHighlight>
  32.         <sharedHighlight> <true /> </sharedHighlight>
  33.         <family>0</family>
  34.         <titleWidth>0</titleWidth>
  35.         <icon>0</icon>
  36.         <textAlign>center</textAlign>
  37.         <font>Chicago</font>
  38.         <textSize>12</textSize>
  39.         <textStyle>plain</textStyle>
  40.         <name>Log to File</name>
  41.         <script>on mouseUpask file "Log to what file?"if it ‚↠"" thenglobal gFileNameput it into gFileNameopen file gFilenameend ifUpdateBtnsend mouseUp</script>
  42.     </part>
  43.     <part>
  44.         <id>3</id>
  45.         <type>button</type>
  46.         <visible> <false /> </visible>
  47.         <reserved5> 0 </reserved5>
  48.         <reserved4> 0 </reserved4>
  49.         <reserved3> 0 </reserved3>
  50.         <reserved2> 0 </reserved2>
  51.         <reserved1> 0 </reserved1>
  52.         <enabled> <true /> </enabled>
  53.         <rect>
  54.             <left>186</left>
  55.             <top>257</top>
  56.             <right>306</right>
  57.             <bottom>294</bottom>
  58.         </rect>
  59.         <style>shadow</style>
  60.         <showName> <true /> </showName>
  61.         <highlight> <false /> </highlight>
  62.         <autoHighlight> <true /> </autoHighlight>
  63.         <sharedHighlight> <true /> </sharedHighlight>
  64.         <family>0</family>
  65.         <titleWidth>0</titleWidth>
  66.         <icon>0</icon>
  67.         <textAlign>center</textAlign>
  68.         <font>Chicago</font>
  69.         <textSize>12</textSize>
  70.         <textStyle>plain</textStyle>
  71.         <name>Close File</name>
  72.         <script>on mouseUpset cursor to 4global gFileNameclose file gFileNameput gFileName into thePathput empty into gFileNameUpdateBtnsanswer "The file was created:"&return &return &thePathend mouseUp</script>
  73.     </part>
  74.     <name></name>
  75.     <script>on appleEventglobal gFileNameif gFileName is empty thenbeepanswer "No output file has been opened!"&return&return&¬¨"Use the ‚ÄúLog to File‚Äù button."elserequest appleevent data of keyword "info"put number of lines in it into Xwrite line 1 to x-3 of it to file gFileNameend ifend appleEventon UpdateBtnsglobal gFileNameset the visible of cd btn "log to file" to (gFileName="")set the visible of cd btn "close file"  to (gFileName‚â†"")end UpdateBtnson opencardUpdateBtnsend opencard</script>
  76. </card>
  77.  
  78.  
  79.